home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Utility Spectacular / Developer / SAT / SAT Invaders sample ƒ / soundConst.p < prev    next >
Encoding:
Text File  |  1994-07-26  |  1.2 KB  |  41 lines  |  [TEXT/PJMM]
  1. {=================================================}
  2. {============= Sound Constants and handles ==============}
  3. {=================================================}
  4.  
  5. { Example file for Ingemars Sprite Animation Toolkit. }
  6. { © Ingemar Ragnemalm 1992 }
  7. { See doc files for legal terms for using this code. }
  8.  
  9. { This file defines handles for your sound resources. The procedure LoadSounds}
  10. { is called at startup. The sounds could also have been loaded by the appropriate}
  11. { sprite units.}
  12.  
  13. { When designing your game, my advice to you is to use sounds, several sounds,}
  14. { but not ridiculously many and large. A simplistic game that takes 1000k on disk}
  15. { just because it contains lots of sounds is just a waste of disk (and we have seen}
  16. { far too many of them on the shareware market), but a well-polished, complex}
  17. { and interesting game can and should use more. }
  18.  
  19. unit SoundConst;
  20.  
  21. interface
  22.  
  23.     uses
  24.         SAT;
  25.  
  26.     var
  27.         toffH, dunkH, piuH, kraschH: handle;
  28.  
  29.     procedure LoadSounds;
  30.  
  31. implementation
  32.  
  33.     procedure LoadSounds;
  34.     begin
  35.         toffH := SATGetNamedSound('toff');
  36.         dunkH := SATGetNamedSound('Dunk');
  37.         piuH := SATGetNamedSound('piu');
  38.         kraschH := SATGetNamedSound('Krasch 1');
  39.     end;
  40.  
  41. end.